<!--#include file="Librerias/mssql-ds.dll" -->
<%
seleccion = request.QueryString("select")
opcion = request.QueryString("opcion")

	ComboConstruido = "<select name=""var2"" id=""var2"" class=""TextoTam3"" onChange=""cargaContenido(this.id)""><option value="""">-- Seleccione --</option>"
	sSQL = ""
	sSQL = sSQL & " SELECT cla_id, cla_descripcion"
	sSQL = sSQL & " FROM ClasificadorRecursos"
	sSQL = sSQL & " WHERE cla_depende = "& opcion
	sSQL = sSQL & " AND cla_estado = 1"
	MatrizCombo = MatrixBD(sSQL, 1)
	If VarType(MatrizCombo) = 8  then
		QReg = -1
	Else
		QReg = UBound(MatrizCombo, 2)
	End If
	For i = 0 To QReg
		ComboConstruido = ComboConstruido & "<option value='" & MatrizCombo(0, i) & "'"
		ComboConstruido = ComboConstruido & ">"& MatrizCombo(0, i) &" - "& MatrizCombo(1, i) &"</option>"
	Next				
	ComboConstruido = ComboConstruido & "</select>"
	response.ContentType = "text/html; charset=iso-8859-1"
	response.write ComboConstruido
%>